object TPersHolder
  P.Name = 'COBOL'
  P.Extensions.Strings = (
    'Cobol files (*.cob;*.cbl)|*.cob;*.cbl ')
  P.SyntaxBlocks = <
    item
      Name = 'Default'
      ID = 0
      FIText = 0
      FIIntNum = 1
      FIFloatNum = 2
      FIHexNum = 3
      FISymbol = 8
      FIIdentifier = 9
      UseComments = True
      UseSingleLineComments = True
      UseStrings = True
      UseSingleLineStrings = True
      UseNumbers = True
      UseIdentifiers = True
      UseKeywords = True
      BlockDelimiters = <>
      SingleLineCommentDelimiters = <
        item
          FontID = 4
          LeftDelimiter = '*'
        end>
      SingleLineStringDelimiters = <
        item
          FontID = 7
          LeftDelimiter = #39
          RightDelimiter = #39
        end>
      KeywordSets = <
        item
          FontID = 6
          Name = 'Reserved Words'
          Keywords = 
            'DATA,DIVISION,ENVIRONMENT,IDENTIFICATION,PROCEDURE,STORAGE,WORKI' +
            'NG,WORKING-STORAGE'
        end
        item
          FontID = 10
          Name = 'Reserved Words2'
          Keywords = 
            'ACCEPT,ACCESS,ADD,ADDRESS,ADVANCING,AFTER,ALL,ALLOWING,ALPHABET,' +
            'ALPHABETIC,ALPHABETIC-LOWER,ALPHABETIC-UPPER,ALPHANUMERIC,ALPHAN' +
            'UMERIC-EDITED,ALSO,ALTER,ALTERNATE,AND,ANY,APPLY,ARE,AREA,AREAS,' +
            'ARITHMETIC,ASCENDING,ASSIGN,AT,AUTHOR,B-AND,BASIS,BEFORE,BEGINNI' +
            'NG,B-EXOR,BINARY,BIT,BITS,BLANK,B-LESS,BLOCK,B-NOT,BOOLEAN,B-OR,' +
            'BOTTOM,BY,CALL,CANCEL,CBL,CD,CF,CLASS,CLASS-ID,CLOCK-UNITS,CLOSE' +
            ',COBOL,CODE,CODE-SET,COLLATING,COLUMN,COMMA,COMMIT,COMMON,COMMUN' +
            'ICATION,COMP,COMP-1,COMP-2,COMP-3,COMP-4,COMP-6,COMP-7,COMP-8,CO' +
            'MP-9,COMPUTATIONAL,COMPUTATIONAL-1,COMPUTATIONAL-2,COMPUTATIONAL' +
            '-3,COMPUTATIONAL-4,COMPUTATIONAL-6,COMPUTATIONAL-7,COMPUTATIONAL' +
            '-8,COMPUTATIONAL-9,COMPUTATIONAL-X,COMPUTE,COMP-X,COM-REG,CONFIG' +
            'URATION,CONNECT,CONTAINED,CONTAINS,CONTENT,CONTINUE,CONTROL,CONT' +
            'ROL-AREA,CONTROLS,CONVERTING,COPY,CORR,CORRESPONDING,COUNT,COUNT' +
            'ER,CURRENCY,CURRENT,CYCLE,DATE,DATE-COMPILED,DATE-WRITTEN,DAY,DB' +
            ',DB-ACCESS-CONTROL-KEY,DBCS,DB-DATA-NAME,DB-RECORD-NAME,DB-SET-N' +
            'AME,DB-STATUS,DE,DEBUG,DEBUG-CONTENTS,DEBUGGING,DEBUG-ITEM,DEBUG' +
            '-LINE,DEBUG-NAME,DEBUG-SUB-1,DEBUG-SUB-2,DEBUG-SUB-3,DECIMAL,DEC' +
            'IMAL-POINT,DECLARATIVES,DEFAULT,DELETE,DELIMITED,DELIMITER,DEPEN' +
            'DING,DESCENDING,DESTINATION,DETAIL,DISABLE,DISCONNECT,DISPLAY,DI' +
            'SPLAY-1,DISPLAY-2,DISPLAY-3,DISPLAY-4,DISPLAY-5,DISPLAY-6,DISPLA' +
            'Y-7,DISPLAY-8,DISPLAY-9,DIVIDE,DOWN,DUPLICATE,DUPLICATES,DYNAMIC' +
            ',EDITED,EGCS,EGI,EJECT,ELSE,EMI,EMPTY,ENABLE,END,END-ADD,END-CAL' +
            'L,END-COMPUTE,END-DISABLE,END-DIVIDE,END-ENABLE,END-EVALUATE,END' +
            '-IF,ENDING,END-INVOKE,END-MULTIPLY,END-OF-PAGE,END-READ,END-RECE' +
            'IVE,END-RETURN,END-REWRITE,END-SEND,END-START,END-STRING,END-SUB' +
            'TRACT,END-UNSTRING,END-WRITE,ENTER,ENTRY,EOP,EQUAL,EQUALS,ERASE,' +
            'ERROR,ESI,EVALUATE,EVERY,EXACT,EXCEEDS,EXCEPTION,EXCLUSIVE,EXIT,' +
            'EXTEND,EXTERNAL,FALSE,FD,FETCH,FILE,FILE-CONTROL,FILE-CONTROL.,F' +
            'ILLER,FINAL,FIND,FINISH,FIRST,FOOTING,FOR,FORM,FORMAT,FREE,FROM,' +
            'FUNCTION,GENERATE,GET,GIVING,GLOBAL,GO,GOBACK,GREATER,GROUP,HEAD' +
            'ING,HIGH,HIGH-VALUE,HIGH-VALUES,CH,CHARACTER,CHARACTERS,ID,IF,IN' +
            ',INDEX,INDEX-1,INDEX-2,INDEX-3,INDEX-4,INDEX-5,INDEX-6,INDEX-7,I' +
            'NDEX-8,INDEX-9,INDEXED,INDICATE,INHERITS,INITIAL,INITIALIZE,INIT' +
            'IATE,INPUT,INPUT-OUTPUT,INSERT,INSPECT,INSTALLATION,INTO,INVALID' +
            ',INVOKE,I-O,I-O-CONTROL,IS,ITEM,JUST,JUSTIFIED,KANJI,KEEP,KEY,LA' +
            'BEL,LABELS,LAST,LD,LEADING,LEFT,LENGTH,LESS,LIMIT,LIMITS,LINAGE,' +
            'LINAGE-COUNTER,LINE,LINE-COUNTER,LINES,LINKAGE,LOCALLY,LOCAL-STO' +
            'RAGE,LOCK,LOW-VALUE,LS-AREA,MEMBER,MEMORY,MERGE,MESSAGE,METACLAS' +
            'S,METHOD,METHOD-ID,MODE,MODIFY,MODULES,MORE,MOVE,MULTIPLE,MULTIP' +
            'LY,NAME,NAMES,NATIVE,NEGATIVE,NEXT,NO,NORMAL,NOT,NULL,NULLS,NUMB' +
            'ER,NUMERIC,NUMERIC-EDITED,OBJECT,OBJECT-COMPUTER,OCCURS,OF,OFF,O' +
            'F-WEEK,OMITTED,ON,ONLY,OPEN,OPTIONAL,OR,ORDER,ORGANIZATION,OTHER' +
            ',OUT,OUTPUT,OVERFLOW,OVERRIDE,OWNER,PACKED,PACKED-DECIMAL,PADDIN' +
            'G,PAGE,PAGE-COUNTER,PARAGRAPH,PASSWORD,PERFORM,PF,PH,PIC,PICTURE' +
            ',PLUS,POINTER,POSITION,POSITIVE,PRESENT,PRINTING,PRIOR,PROCEDURE' +
            '-POINTER,PROCEDURES,PROCEED,PROCESS,PROCESSING,PROGRAM,PROGRAM-I' +
            'D,PROTECTED,PURGE,QUEUE,QUEUE-3,QUOTE,QUOTES,RANDOM,RD,READ,READ' +
            'Y,REALM,RECEIVE,RECONNECT,RECORD,RECORDING,RECORD-NAME,RECORDS,R' +
            'ECURSIVE,REDEFINES,REEL,REFERENCE,REFERENCES,RELATION,RELATIVE,R' +
            'ELEASE,RELOAD,REMAINDER,REMOVAL,RENAMES,REPEATED,REPLACE,REPLACI' +
            'NG,REPORT,REPORTING,REPORTS,REPOSITORY,RERUN,RESERVE,RESET,RETAI' +
            'NING,RETRIEVAL,RETURN,RETURN-CODE,RETURNING,REVERSED,REWIND,REWR' +
            'ITE,RF,RH,RIGHT,ROLLBACK,ROUNDED,RUN,SAME,SD,SEARCH,SECTION,SECU' +
            'RITY,SEGMENT,SELECT,SELF,SEND,SENTENCE,SEPARATE,SEQUENCE,SEQUENT' +
            'IAL,SERVICE,SESSION-ID,SET,SHARED,SHIFT-IN,SIGN,SIZE,SKIP,SKIP1,' +
            'SKIP2,SKIP3,SORT,SORT-CONTROL,SORT-CORE-SIZE,SORT-FILE-SIZE,SORT' +
            '-MERGE,SORT-MESSAGE,SORT-MODE-SIZE,SORT-RETURN,SOURCE,SOURCE-COM' +
            'PUTER,SPACE,SPACES,SPECIAL,SPECIAL-NAMES,STANDARD,STANDARD-1,STA' +
            'NDARD-2,STANDARD-3,STANDARD-4,START,STATUS,STOP,STORE,STRING,SUB' +
            ',SUB-QUEUE-1,SUB-QUEUE-2,SUB-SCHEMA,SUBTRACT,SUM,SUPER,SUPPRESS,' +
            'SYMBOLIC,SYNC,SYNCHRONIZED,TABLE,TALLY,TALLYING,TAPE,TENANT,TERM' +
            'INAL,TERMINATE,TEST,TEXT,THAN,THEN,THROUGH,THRU,TIME,TIMEOUT,TIM' +
            'ES,TITLE,TO,TOP,TRACE,TRAILING,TRANSCEIVE,TRUE,TYPE,UNEQUAL,UNIT' +
            ',UNSTRING,UNTIL,UP,UPDATE,UPON,USAGE,USAGE-MODE,USE,USING,VALID,' +
            'VALIDATE,VALUE,VALUES,VARYING,WAIT,WHEN,WHEN-COMPILED,WITH,WITHI' +
            'N,WORDS,WRITE,WRITE-ONLY,ZERO,ZEROES,ZEROS'
        end>
      FirstIdentChars = '+/<->A-Z_a-z'
      OtherIdentChars = '\-0-9A-Z_a-z'
    end>
  P.FontTable = <
    item
      FontID = 0
      GlobalAttrID = 'Whitespace'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
    end
    item
      FontID = 1
      GlobalAttrID = 'Integer'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
    end
    item
      FontID = 2
      GlobalAttrID = 'Float'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
    end
    item
      FontID = 3
      GlobalAttrID = 'Integer'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
    end
    item
      FontID = 4
      GlobalAttrID = 'Comment'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsItalic]
    end
    item
      FontID = 6
      GlobalAttrID = 'Reserved words'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
    end
    item
      FontID = 7
      GlobalAttrID = 'String'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
    end
    item
      FontID = 8
      GlobalAttrID = 'Delimiters'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
    end
    item
      FontID = 9
      GlobalAttrID = 'Identifier'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
    end
    item
      FontID = 10
      GlobalAttrID = 'System Variable'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
    end>
  P.SyntaxVersion = 3
end
